1 POKE55,0:POKE56,64:CLR:A$="":POKE53281,0:POKE53280,0
2 GOSUB60000:REM GOTO7
3 SYS57812"UNPACKER.89",8,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
4 SYS57812"INPUT ANY.O",8,0:POKE780,0:POKE781,60:POKE782,3:SYS65493
7 IP=828:UN=51456:HG=51459
8 GOSUB1000
9 CL$="                                      "
12 DIMG$(500)
27 P=1:PT=0:E=1
28 REM GOTO100
30 OPEN3,8,3,"T.OCP WORK"
32 FORI=0TO1
35 SYS828,3,40:H=H+1:I=ST
37 G$(PT*19+H)=A$:IFH=19THENPT=PT+1:H=0
38 NEXT:CLOSE3:PT=PT+1
40 SYSHG
100 POKE53281,9:POKE53280,9:PRINT"[147]     [215][193][204][212]'[211] [215][207][210][203][211][200][207][208]"TAB(31)"[150] OF"PT
101 PRINT"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
102 FORI=1TO20:PRINT"[221]"SPC(38)"[221]";:NEXT
103 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
104 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
105 POKE214,22:PRINT:PRINT"[150]  ([206][150])EXT  ([208][150])REVIOUS  ([198][150])IRST  ([204][150])AST"
106 PRINT"  (1[150]) THROUGH (8[150]) FOR PICTURE  ([209][150])UIT[158]"
108 PRINT""TAB(28)"   [157][157][157]"P"[158]"
110 FORJ=ETOE+19
120 PRINT""G$(J)
130 NEXT
150 GETA$:IFA$=""THEN150
160 IFA$>="1"ANDA$<="8"THEN200
165 IFA$=""ORA$="N"THENIFP<PTTHENP=P+1:E=E+19:GOTO195
170 IFA$="[145]"ORA$="P"THENIFP>1THENP=P-1:E=E-19:GOTO195
175 IFA$="[157]"ORA$="F"THENE=1:P=1:GOTO195
180 IFA$=""ORA$="L"THENE=(PT-1)*19+1:P=PT:GOTO195
185 IFA$="Q"THEN400
190 GOTO150
195 PRINT"[145][145]":FORK=1TO20:PRINTCL$"[145][145]":NEXT:GOTO108
200 IFA$=D$THEN250
210 D$=A$
220 PRINT:PRINTCL$:PRINTCL$"[145][145][145]"
230 SYS57812A$+".SHP",8,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
250 POKE251,64:POKE252,224
260 POKE253,204
270 PRINT"[147]";:SYSUN:SYSHG:POKE53280,0
280 POKE198,0
290 GETA$:IFA$=""THEN290
295 SYSHG:GOTO100
299 GOTO299
400 POKE214,22:PRINT:PRINTCL$:PRINTCL$"[145][145]"
405 PRINT"        [209]UIT[150] TO [204][207][193][196][211][212][193][210]? (Y[150]/N[150])"
410 GETA$:IFA$<>"Y"ANDA$<>"N"THEN410
420 IFA$="N"THEN105
430 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
440 IFER%<>63THENPRINT"[147]":END
445 POKE646,PEEK(53281)
450 PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
460 PRINT"RUN"
470 POKE631,13:POKE632,13:POKE198,2:END
1000 SYS57812"LOGO",8,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
1010 POKE251,64:POKE252,224
1020 POKE253,204
1030 PRINT"[147]";:SYSUN:SYSHG:POKE53280,0
1050 RETURN
10000 OPEN15,8,15,"S0:OCP WORKSHOP":CLOSE15:SAVE"OCP WORKSHOP",8:END
60000 PRINT"[147][129]         [193]N [150][207]UTHOUSE [129][208]RODUCTION"
61000 POKE214,15:PRINT
61110 PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
61120 PRINT"  [152]                                    "
61130 PRINT"                                      "
61140 PRINT"                                      "
61150 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] #75     "
61160 PRINT"      [211]UBSCRIPTIONS 1-800-831-2694    "
61170 PRINT"           [193]LL [210]IGHTS [210]ESERVED        "
61180 PRINT"                                      "
61190 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
61200 AU$="[215]ALT'S [193]DVANCED [207][195][208] [215]ORKSHOP"
61205 POKE214,17:PRINT:PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
61210 AU$="BY [215]ALT [200]ARNED  ([195]) 1990":POKE214,18:PRINT
61220 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$""
61230 RETURN